var
OutType: string; OrderID: string; BESR_ID: string; OrderValue: Double; BankNumber: string;
v:string;
begin
  OrderID:= DBValue('ID_ORDER') ;
  OrderValue := brutto;
  OutType:='01';
  BankNumber:='Ihre Daten';
  BESR_ID:='Ihre Daten';
  CreateESR(OutType, OrderID, BESR_ID, OrderValue, BankNumber);
  pp.caption:=ESR_Esr;
 //link:ESR_Esr
end.
